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JIG 


Jig ou Gigue (pour les xénophobes) ; toute ressemblance | 
avec les mots gigots ou gigoter ne saureit étre fortuite; il 
s'agit en effet d'une musique å tempo rapide eccompagnent une 
danse qui l'est toute cutent. Musique traditionnelle, musique 
рорц1зіге dont les racines plongent dans le lointsin pessé, 
mais qui reste toujours vivante et connait même un renouveau, 
nar exemple en Irlande (paradis des écolos). 

А quoi ressemble une Jig irlendeise 7 

Le mieux pour le savoir c'est encore d'en écouter. Je vous 

4. quelques disques au passage: ВОТЧҮ BAND , PLAEYTY, 

a сг" BOYS ОГ THE LOUGH ка поп рзуге, malheureu- 
о 


Le rythme est ternaire (mesures à ` 6/8 ou 9/8 Dour les 
slip jigs) en général dans la tonalité de Ré ou de Sol. 


Le forme le plus courente est la зи1усп е: 
ABACABAC-DEDFDEDF 
Chaque membre correspondent еп général à deux mesures. 
Те but ди programme presenté ici est де репегег des musiques 
de ce type, la sortie étant une partition. 


11 у а treize. heuteurs de notes possibles: Ré, Vi, Кеж, 
Sol, La „51, Do (ou doHsuivant la tonalité), Ré, i, Кад, Sol, 
51. | | 

Les rythmes seront générés par demi-mesures. Puisque les ши 
res sont er 6/8, оп aura donc 3 battues а la croche rar der 
mesure; се qui donne 4 rythmes possibles: гга, åt dd ga | 


“Avant la première mesure, оп а la possibilité de générer une 
anacrouse sui sera une croche. | 

Les hauteurs: де l'anacrouse, се la première note du membre А 
et du membre D seront tirées au h'serd. | | 


—-1,'14п1%14115' t'on des tirages se fait per ров оц шона 

programme 7181 me 
-Pour tirer ипе hauteur оп appelle Le sous-programme TIPN 

-Pour tirer un rythme de demi-mesure, оп anpelle TIRR 
-Pour tirer un successeur a une hauteur, on appelle TIRS 


Les nombres eléatoires sont fournis par [а fonction machine 
PANT (sous programme TIRH ) initialisée ‘ar le sous programme 
rechine БВАГЗЕТ. Le résultat de RANF est un entier. 

Dans TIRE on ramè:e le tirage à un nombre compris entre un et 
13. 

Jans TIRS et ТІНЕ à un nombre compris entre 1 et 100. 

On anplique ensuite des tiltrés а ces nombres aléatoires pour 
obtenir des valeurs avec 1а probabilité аёѕітее. 


des 
-ders Le programme principal: 
Мот (1) = nombre de notes contenues dens de demi-mesure 1 
НВУ!" (М2) = rythme де la demi-mesure М2 (4 possibilités: ҮГ), 
4 H, 24,2. сойсез ووا‎ 3,4) | 
HTENP(J,K) = code de durée d'une note (1-4, ,لهد‎ 3-4.) pour 
іс rythme J et la Кїбє note. | 


Пела рпафтоп identificateurs: 
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лет] 1 | 2 


2”. 
. ~ 

оз СУ: 
y A 


HTEMP 
=2,1 


contient les successeurs d'une hauteur. , | 


HSUC(K) | 

HPILN(K) pile contenant la hauteur de la Kiéme пође | 

HPILT(K) pile contenant La durée de да Kième поте | 

та | numéro de 1а demi-mesure | | 

LR ` numéro де la mesure “| от 11 202. 

HP puinteur с де piie | НЕ ши e 

HPM 1 autre pointeur de pile servant à 1a гесоріе 

нхо? hauteur де поте(Та 15%) | 

Нр nombre ае demi-mesures à générer 

HN nombre de notes dans la deri-mesure 

BFIN bouiéen permettent de tester gi la totalité des 
mesures а été ала. 

НҮ entier aléatoire 


-Dans le sous-programre TIRS; 


HID Е = écart еп valeur absolue ешге une hauteur et 
son successeur, 


HPLS = facteur de pondération pour déterminer le signe 
de ја correction effectuée sur Та hauteur. 


-Dans le sous-programme PART: 


BR(5) = contient les caractères C,*,0,I et . nécessaires 
à l'impression. 


BTAB(13,240)=tableau contenant la représentation de la parti- 
tion (les 13 lignes correspondent aux 13 hauteurs. 


HTS ши somme des durées des notes d'une demi-mesure. 
nombre de mesures 


С 
> 
Н 
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Le programme principal est divisé еп 4 parties : 


-du début jusqu! à l'étiquette 40 : initielisetions et PEN 
де l'anacrouse lorsque cette option est. demandée å 


-de l'étiquette 40 à — 60 и érations des hauteurs 
| et des rythmes. | 


-de l'étiquette 60 а 80 :1es mesures 1-2 et la moitié de la 
mesure 3 sont recopiées et vont constituer les mesures 5-6 
еђ Та moitié de ја mesure 7. 


ede l'étiquette 80 à la fin : gétiératton dé la Чекке demi- 
mesure de la phrase et test sur la fin éventuelle du morceau. 
On impose une contrainte sur 1а dérnière hauteur qui doit être 
la tonique ди ја quinte sdonc 4 possibilités puisqu'il y a 2 
octaves. Tant que la dernière heuteur ne satisfait pas à ces 
critères on regénère toute la dernière demi-mesure jusqu'à 
satisfaction. Lorsque la mélodie а été totalement générée on 


appelle le sous programme d'impre: sions PART 3sinon, on retourne 
а пи 10. | 
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CROCRAMME Fie 


(16: ! 


ا 


а ч. 
NEN * 
ЕС ІІІ ИМЕ Au po ма 
я 
è а A E — — 


RALE D'UNE 
ы HAUTEUR | 
сас TIEN 


7 
| 
| 
RANCENENT DE LA | 


ил Ем ФА DYNE | 
LES | 


6 с 


066541 пе (оиса Є 
SUR LE момке DE 
NOTES JE «а 
DEM MESURE 


I 
мес DE LA 
HAVTEVR ET DI 


RYTHME PANS ъё 
Фи Е i 


ENGLE OVA 
Succ Су уя Fou 
LA мйю тема 


CALL TIRS 


FIN DE бомслеј 


21235 


а 


| J 


IMÎRESS о: 
EUREUK вео. 


TRACE D'un 
ЧАотғ UK: 
CALL TIR N 


NCREMENIRT зе 06 
14 MESURE. 


A-2 A + 1 


DELT DE боса 
SUR LE кқолһЕС 
06 OCMIMÉSURES 
A GENERER 


ARE MENG ажым 
бе LA DEM ME SVERRE 


At - АЭ. 44 


IRAGE D'UN RIS 
POUR LA DEM: 869% 


CALL TERR | 


— 


--- 


i 6172. Қ ЖЗ К 


RE Cork фу RITHE 
DE п 064. MTS 6. 
u 


OEBUT 06 досу 
SUR LE мсмарг үр 
Мот, 02 LAGEM. 
MAES не че сет Г 


KEC fi. CES уз“ «1 | 
мутаас BES PILES 
PAR 14 Оги AT SURE 


Fin ІЯ 


Боос F 
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[кәт 06 бәУсіс | 


| | 


Де Е · 
412 ма: DA 


TRAE È KEE 
пе SFE VUR’ Бо 

(А часа” 
«пт кы т. a 5 


= 


ем DE Бөлек с 


Ры АМ, ЕКС vrAVUTEUR 2 av: 
1,5 1% ere 427 7 


DEGUT DE ома в 
SUR LE vehe ВС 
vers RE LA асам, 
CEM МС RE, 


ARRANGEMENT DE LA. 
HAYTER Er гу 


(Кутини DANS LES 
11 © 6 


— 
Смс оордо Ру гем |. 
Ө» бг © ор үс! 


ие TÎ дА 
“4% 


a IMPLICIT LUE ерек EU) өнеді оты ані e 


PROGRAMME PRINCIPAL 


све. 


„соннон/семинот (4) ,HTEMP (493) SUC (3) үнүн өз еи м 100 нет та. 
0) | | 


BFIN=°FALSEe 
M2=0 
М=0 
НР | | | 
CALL TIRICHY) | 
WRITE (6,10) | 
10 FORMAT (2х, "5 | VOUS DÉSIREZ UNE ANACROUZE TAPEZ 1") 
| КЕАО (5, 20) НА 
2% FORMAT (11) _ 
| ТЕ (НА-1)40» 30, 40 
30 CALL ТАМ: НМОТ) 
MPILN(HP)=HNOT _ 
HPILT(HP)=1 
НР=НР +1 
40 CALL ТЕЕМСНМОТ ) 
45 M=M+l | 
ТЕ (М.ЕО 1) НРМ зНР 
ном=2 
47 DO 50 131, НОМ 
| M2=M2+1 
CALL Т188(М2) | 
. HN=MNOT (HRYTM(M2)) 


IF(M2.EQ0.16)60 TO 80 
DO 50 HI =] fHN 
HPILN (НР) зНМОТ. Е 

` НРИ.Т( НР) + НТЕМР ( НЕУТМ(М2) НТ) 
HP=HP+1 

` CALL TIRSUHNOT) 

50 CONTINUE - 
22-60 то (459459460622451 


с 
с COPIE MESURES 5-6 ЕТ MOITIE DE 1 
с “ 
2. DO 65 Hals 
22 HI=H2+48 оо | 
НеУТМЕНТ гнкути на) 


HN=MNOT (НВУТМ (Н1) ) 
DO 65 НІ=1,нм _ 
ОНРТЕМ(НР) ЕНРТЪМСНРМО 
HPILT(HP)= ARE CREME 


= HP=HP +1. 
65 НРМ1 =НРМ1+ 1 
М=7 
M2=13 
нома 
со TO 47 
62 WRITE(6r63)M 
63 FORMAT (5X, ' ERREUR RECOPIE м=*,12) 
5ТОР 
С | | 
С ` GENERATION DE LA DERNIERE DEMI-MESURE 
С 


во 00 82 HI=19HN 
HS UC (HI) =HNOT | 
82 — CALL 7185 (НМОТ) | 
ТЕ (Н5ОССНМ) • EO 1 «OR „М5ИС (HN) Е0.5-0й„НЗУС(ННО „68.08. „ндус( нн). ЕО 
*12)60 ТО 83 
IF (HNeGT • 1) НМОТ = ЭЧЕ 
со то 80 
83 DO 84 НІ =1 НМ 
HPILN(HP)=HSUC (HI) 
СО НРИ.Т(НР ) = НТЕМР (НКУТИ (16) НТ) 
84  HP=HP+1 
| IF(.NOT.BFIN)GO ТО 85 
` HP=HP-1 | 
feat КОЛО НЕТА ТОТ уведене 
500 FORMAT (3X „"нр МС", 137") =", 12, "НРИ Те" + 121 
CALL РАВТ(НР»НА) 
STOP 
на M20 
м2=0 | 
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зоо с 


ооо с 


OO о 


10 


60 TO 40 
END 


BLOCK DATA | л и 

IMPLICIT INTEGER KONES ЕЁ АДЕЕТ LOGICAL) | 
COMMON/GEN/MNOT (4) ,НТЕМР (4,3) „Н5ИС (3) НКУТМ (16) HPILN(100),HPILTI 
#00) 


ПАТА ММОТИЗ, 2,2, 1/,НТЕМР/1,2,1,3,1»1•2,0,1»,0,0+0/ 
ЕМО 


SUBROUTINE TIRI(HY) 

IMPLICIT INTEGER*2(H):REAL*8(D),LOGICAL*1(B) 
DIMENSION N(9) ` 

Z=N(1) 

CALL KLOAK (М) 

DO 2 122%,9 

Z=Z+N{I) 

CALL RANSET(Z) 


ENTRY TIRH(HY) 
HY=RANF (100) 
ЈЕ(НУ СЕ. 0)60 ТО 5 
RETURN _ 

ЕМО 


SUBROUTINE TIRNIHMNOT) 

IMPLICIT INTEGER*2(H) КЕЛІ #8 (0) LOGICAL*L(B) 
CALL TIRH(HY) 

HNOT=HY-HY/12%12+1 

RETURN 

END 


SUBROUTINE TIRR(M2) 
IMPLICIT | МТЕСЕН #2 (Н) ,КЕАГ#8 (0) „Г ОСТСА 1 (8) | | | 
СОММОМ/БЕМ/ММОТ (4) „НТЕМР (4, АДА ДАО СА А АТА 


ж00) 


CALL TIRHİHY) 

НҮ=НҮ-НҮ/100%100 
IF(HYeoLE 65) НАҮТМ(М2) =] 

ТЕ (Ну „СТ. 65 Амрену „(Е.ВОЈНЕВУТМ (М2 ) =2 
ТЕ (НУ, GT „ВО. AND HY ДЕ „УО )УНЕУТМ (М2) =3 
|Е (НУ „СТ. 90) НКУТМ(М2 ) =4 


RETURN 
END 


SUBROUTINE TIRS(HNOT) 

IMPLICIT |МТЕСЕНК?(Н)  „КЕА| #8 (D)? (ОСТСА ЖА (В) 
HPLS=-20 | 

CALL ТІВН (НҮ? 

НҮчНҮ-НҮ/100%100 

ЈЕ(НУ СЕ о АМО „НУ. Т. 58) НТОЕ1 

ТЕ (НУ „СЕ. 58. AMOD. HV. Т. 86) Н1022 

ТЕ (НУ „СЕ 86. АМО. НУ. | Т.97) Н102=3 

ТЕ (Ну „СЕ. 97. AND „НУ. Т. 99) Н10<4 

ТЕ (НУ СЕ .99)н10=5 

ТЕ (НМОТ „СТ. 6) НР 5220 

CALL TIRHIHY) 

HY=HY-HY/100#100 

HTES=HY+HPLS 

IF(HTES.GE.50)HID=-HID 
HNÉW=HNOT+HID 

ТЕ (НМЕМ СЕ. Об ОК „НМЕм „СТ. 13) СО ТО 10 
НМОТ =НМЕ И 

RETURN 


END 
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SUBRUUT ERNE ПИРЕ ТЕ | 
IMPLICIT INTEGERS FH] REAL BÅD) е СОСІСАСФ1 (В) : | | | 
СОММОМ/СЕМИМНОТ (4) SAT EMP (4 3) PHSUG (За „Нити CESIS неин тоозонеите: 
00) | 
` DIMENSION ВК (5) „ВТАВ(13, 240) | 
DATA ВК/ "С: еже а ОТ |, А /втаВИЗ1 208: +/ 
DATA ИТИИ | 
ІЕ(НА.МЕ.,1)60 ТО 20 
HO=2 ии | 
БИЛЛИ (нето) | 
HL =3 
DO 10 HI=1913 
10 ВТАВ(Н1, 2) =BR (4) 
29 DO 25 НІсНОэЭНР 
ВТАВ(НР МЕН) НЕ) = ВК (НРЕТСНТ) ) 
НТ + НТ +НРТЕТ (НТ) 
ТЕ (НТ5 .МЕ.6) СО ТО 23 
HTS=0 
HCM=HCM+1 
HL=HL +1 
ТЕ(НОМ„ МЕ. 8,600. TO 22 
ВТАВ Е 5, Н| ) <ВК (5) 
ВТАВ (7, НЕ) 282 (5) 


нон. + 1 


| „ВВ=„ FALSE • 
222 00 24 НХ=1,13 
2% __ВТАВ(НХ НЕ) = =BR (4). 
| HL=HL+l | 


СТЕ (НСМ. МЕ 68 )60 то 25 
С 1Е(88)60 TO 21 
B8=,. TRUE. 
260 то 22 
23 HL=HL +2 
2-60 TO 25 
21 HCM =0 
| BBS FALSEe 
25 CONTINUE 
| HL IM=1 
30 DO 100 НІз1,13 
HX=14-HI 
HLIM2=HLIM+78 
| МЕ 1ТЕ (6, 40) (ВТАВ(НХ +, 1) + 1 - МОН ТМ) 
40 FORMAT(IH »7941) | 


22 ТЕЦНХ-НХИ2к?).ЕО.О ) ИК + ТЕ (6.20) 
50 FORMAT (18++79("—" )) 


100 CONTINUE 
` WRITE (6160) 
60 FORMAT (LHO9/) 
IF (HI IM2.GT.210JRETURN 
HL IM=HL IM2+1 | 
| со то 30 
= END 
ХЕОО 
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